   5 CLEAR ;F=428;FC=0;BC=F;FOR A=1TO 26;@(A)=0;NEXT A;NT=0;&(9)=22;&(0)=135;&(1)=135;&(2)=240;&(3)=240;Z=20;L=150
  10 CX=33;CY=-36;PRINT "EMPTY";CY=-5;CX=38;PRINT "HALF";CX=38;CY=16;PRINT "FULL";FOR A=1TO 3;CX=66;CY=Z;PRINT "◄";Z=Z-25
  15 NEXT A;BOX 30,3,1,33,3;BOX 61,3,1,33,3;J=0;U=-80;XY=-3523;LINE 46,-29,3;XY=-3554;LINE 45,-29,3
  17 CX=-58;CY=-36;PRINT "SCORE ",#1,L
  20 B=1;FOR A=-65TO -5STEP 10;@(B)=RND (15)+10;BOX A,@(B)-20,11,40,3;@(B+1)=@(B)-40;B=B+2;NEXT A;A=15;B=1
  25 FOR X=-60TO -10STEP 10
  30 IF @(B)<@(B+2)D=ABS((@(B+2)-40)-@(B));D=D-2;E=@(B)-1;Y=E-RND (D);GOTO 60
  40 IF @(B)>@(B+2)D=ABS((@(B)-40)-@(B+2));D=D-2;E=@(B+2)-1;Y=E-RND (D);GOTO 60
  50 Y=@(B)-1-RND (37)
  60 BOX X,Y,1,3,3;@(A)=Y;@(A+1)=X;A=A+2;B=B+2;NEXT X;V=@(13)-1-RND (37);BOX 3,V,5,5,3;CY=28;CX=15;PRINT "BILGE LEVEL
  70 B=1;N=-69;M=@(B)-2;X=-68;Y=M-RND (35);C=1;D=2;Z=-29;GOTO 100
  80 IF JY(1)=0IF JX(1)=0GOSUB 300;GOTO 80
  90 GOSUB 280
 100 X=JX(1)+X;Y=JY(1)+Y;IF X>-2X=-2
 110 IF X<-68X=-68
 120 IF Y>@(C)-2Y=@(C)-2
 130 IF Y<@(D)Y=@(D)
 140 GOSUB 280;IF Z=19CY=28;CX=-72;PRINT "BOAT SINKING";GOTO 350
 150 FOR A=-60TO -10STEP 10;IF X=AGOTO 250
 160 NEXT A
 170 GOSUB 300;IF X=-2IF Y=VGOSUB 280;X=1;GOSUB 280;&(9)=0;CY=40;PRINT "     SUCESS IS YOURS";STOP
 180 Z=Z+1;G=0;GOSUB 600;GOTO 80
 250 FOR A=15TO 25STEP 2
 260 IF @(A)=Y IF @(A+1)=X NT=1;GOSUB 540;NT=0;GOSUB 280;X=X+1;GOSUB 280;U=@(A+1);BOX -35,28,78,9,2;GOSUB 400;GOTO 170
 270 NEXT A;IF U=X X=X+1;GOTO 170
 275 X=X-1;GOTO 170
 280 BOX X,Y,2,3,3;BOX X,Y,3,1,3;RETURN 
 300 Q=N+RND (7);R=M-RND (35);IF R=YIF Q=XGOTO 350
 310 RETURN 
 350 NT=1;&(23)=255;&(21)=255;FOR T=1TO 5;BC=FC;MU=RND (20);BOX X,Y,T,5,3;BC=F;NEXT T;&(23)=0;&(21)=0
 360 &(9)=0;CY=40;PRINT "  YOU HAVE BEEN CAPTURED";CY=-38;STOP
 400 C=C+2;D=D+2;N=N+10;M=@(B+2)-1;@(A)=L;RETURN 
 500 Z=Z+1;J=J+2;G=1;FOR S=1TO 50;Z=Z-1;GOSUB 590;IF R>Y R=R-1
 505 IF R<Y R=R+1
 510 IF R=Y Q=Q+1
 515 IF R=YIF X=Q+2GOTO 350
 520 IF JX(1)=1Z=Z-1;J=J-2;RETURN 
 525 MU=9;MU=9;MU=16;NEXT S
 540 CY=28;CX=-62;PRINT "PUMP DOWN??";FOR S=1TO 70;IF TR(1)=1GOSUB 500;L=L-15;CX=-23;CY=-36;PRINT #1,L,"  ";RETURN 
 550 NEXT S;RETURN 
 590 FOR T=1TO 2;BOX Q,R,1,2,3;BOX Q,R+1,3,1,3;BOX Q,R-1,3,1,3;NEXT T
 600 IF G=0IF Z<=-15J=J+2
 610 IF G=1IF Z<=-15J=J-2
 620 IF Z>-15J=30
 630 IF Z<-28Z=-28
 635 IF J<2J=2
 640 BOX 46,Z,J,1,3;RETURN 
>:RETURN ;RUN 
